home *** CD-ROM | disk | FTP | other *** search
/ Mesolore / Mesolore - Disc 1.iso / pc / data / Buttons.cst / 00211_Script_finger < prev    next >
Text File  |  2001-04-13  |  875b  |  51 lines
  1. -- PROPERTIES --
  2.  
  3. property spriteNum, myCursor, myMask
  4.  
  5. -- internal properties
  6. property myMember
  7.  
  8.  
  9.  
  10. -- EVENT HANDLERS --
  11.  
  12.  
  13. on beginSprite me
  14.   Initialize me
  15. end beginSprite
  16.  
  17.  
  18.  
  19. -- CUSTOM HANDLERS --
  20.  
  21. on Initialize me -- sent by beginSprite
  22.   myMember = sprite(me.spriteNum).member
  23.   myCursor = the number of member "i_finger"
  24.   myMask = myCursor +1
  25. end Initialize
  26.  
  27. on mousewithin me
  28.   myMember = sprite(me.spriteNum).member
  29.   if the type of myMember = #field then
  30.     if the forecolor of line the mouseline of field myMember = 255 then
  31.       if the forecolor of char the mousechar of field mymember = 15 then
  32.         cursor [myCursor,myMask]
  33.       else
  34.         cursor 0
  35.       end if
  36.     else
  37.       cursor [myCursor,myMask]
  38.     end if
  39.   else
  40.     cursor [myCursor,myMask]
  41.   end if
  42. end
  43.  
  44. on mouseLeave me
  45.   cursor 0
  46.   pass
  47. end
  48.  
  49.  
  50.  
  51.